admin_template.asp 中国货源网导航程序源码 1 - ASP源码程序

www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/admin/admin_template.asp
    <!--#include file="mdb.asp"-->
<!--#include file="aq.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
dim id,modify,template
id=request("id")
modify=request("modify")
template=request("template")
if modify="yes" then
if template="" then
Response.Write("<script language=javascript>alert('请输入模板内容！');this.location.href='Admin_template.asp?id="&id&"';</script>")
Response.End
end if
set r=server.createobject("adodb.recordset")
r.open "select * from template where id="&id,conn,1,3
if not r.eof then
r("id")=id
r("template")=template
r.update
Response.Write("<script language=javascript>alert('模板已成功更改！');this.location.href='Admin_template.asp?id="&r("id")&"';</script>")
Response.End
else
Response.Write("<script language=javascript>alert('无法完成请求！');this.location.href='Admin_template.asp?id="&r("id")&"';</script>")
Response.End
end if
r.close
set r=nothing
end if
%>
<HTML>
<HEAD>
<TITLE>模板修改管理</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</HEAD>
<BODY>
<form action='Admin_template.asp?id=<%=id%>' method='post'>
<%
set r=server.createobject("adodb.recordset")
r.open "select * from template where id="&id,conn,1,3
if not r.eof then
%>
<table width="92%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#999999">
<tr><td bgcolor="#cccccc" align="center">模板修改管理</td></tr><tr><td bgcolor="#eeeeee">
模板类别：<input name="name" value='<%=r("name")%>' disabled>
</td>
</tr>
<tr><td bgcolor="#eeeeee">
<textarea cols="75%" rows="10" name="template"><%=r("template")%></textarea>
</td>
</tr>
<tr><td bgcolor="#eeeeee">
<input type="submit">
</td>
</tr>
</table>
<%
end if
r.close
set r=nothing
%>
<input name="modify" value="yes" type="hidden">
</form>
</BODY>
</HTML>